        PSX 1
        NY
        L .D1/ADDR
        B
LOOP    F/<>/<(X)>/
        Y?
        PGO FOUND
        PGO QUIT
FOUND   PSX +1
        PGO LOOP
QUIT    PIN Finished